Carousel Volume 2 #1/carousel.iso/mactosh/hc/newtesta.sit/New Testament HyperStack/background_2582.txt

Text File | 1988-02-20 | 7.5 KB | 378 lines

-- background: 2582 from stack: in
-- bmap block id: 11160
-- flags: 4000
-- background id: 0
-- name: NTBk
----- HyperTalk script -----




-- part 1 (field)
-- low flags: 00
-- high flags: 2007
-- rect: left=0 top=20 right=315 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: NTTop
----- HyperTalk script -----
on mouseUp
  set locktext of me to false
  repeat 2 times
    click at the clickLoc
  end repeat
  put "Find" && the selection
  set locktext of me to true
  put item 1 of the location of the message into x
  put item 2 of the location of the message into y
  put x + 20 into x
  put y + 100 into y
  click at x,y
end mouseUp


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=278 top=316 right=342 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual dissolve very fast
  go to next card
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=186 top=316 right=342 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual dissolve very fast
  go to prev card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=4 top=316 right=342 bottom=33
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect dissolve
  go home
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=453 top=315 right=342 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "Look for..."
  searchstackfor it
end mouseUp




-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=38 top=316 right=342 bottom=74
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: View
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=383 top=315 right=342 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Text Dump
----- HyperTalk script -----
on mouseUp
  answer "Export..." with "This Card" or "Whole Book" or "Cancel"
  if it = "This Card" then
    Ask "Save as..." with "Export"
    if it <> empty then
      open file it
      write background field 1 to file it
      close file it
      answer "Text Export of file " & it & " Complete!!!"
    end if
  else if it = "Whole Book" then
    answer "Sorry... That Function is not yet Available" with OK
  end if
end mouseUp



-- part 11 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=467 top=315 right=342 bottom=499
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  doMenu Back
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=76 top=316 right=342 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  doMenu Compact Stack
end mouseUp



-- part 19 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=431 top=315 right=342 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Top
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go to card id 19026
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=111 top=316 right=342 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HIDE  MENUBAR
----- HyperTalk script -----
on mouseUp
  HIDE MENUBAR
  HIDE BKGND BUTTON ID 20
  SHOW BKGND BUTTON ID 10
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=111 top=316 right=342 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: HIDE  MENUBAR
----- HyperTalk script -----
on mouseUp
  HIDE MENUBAR
  HIDE BKGND BUTTON ID 11
  SHOW BKGND BUTTON ID 21
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=111 top=316 right=342 bottom=144
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ShowMenu
----- HyperTalk script -----
on mouseUp
  Show MENUBAR
  HIDE BKGND BUTTON ID 22
  SHOW BKGND BUTTON ID 23
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=112 top=316 right=342 bottom=143
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide MenuBar
----- HyperTalk script -----
on mouseUp
  if the short name of me is "Hide MenuBar" then
    hide menuBar
    set name of me to "Show MenuBar"
  else
    show menuBar
    set name of me to "Hide MenuBar"
  end if
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=222 top=320 right=340 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clip
----- HyperTalk script -----
on mouseUp
  if the short name of me is "Clip" then
    Set locktext of field "NTTop" to true
    set name of me to "Search"
  else
    Set locktext of field "NTTop" to false
    set name of me to "Clip"
  end if
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=481 top=315 right=342 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 2162 / 2162
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  doMenu "Back"
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=355 top=315 right=342 bottom=382
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go to card id 3401
end mouseUp